From: Sam Steingold <sds@gnu.org>
Date: Mon, 26 Jul 2010 19:05:47 +0000 (-0400)
Subject: * lisp/mouse.el (mouse-yank-primary, mouse-yank-secondary):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~7135
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c3ccbca662200a846255e9e3d6e0fa27eafa0a90;p=emacs.git

* lisp/mouse.el (mouse-yank-primary, mouse-yank-secondary):
Do not call `x-get-selection' the second time, reuse the value.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52a618ed13e..b35391f9c4a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-26  Sam Steingold  <sds@gnu.org>
+
+	* mouse.el (mouse-yank-primary, mouse-yank-secondary):
+	Do not call `x-get-selection' the second time, reuse the value.
+
 2010-07-26  Daiki Ueno  <ueno@unixuser.org>
 
 	* epa-mail.el (epa-mail-mode-map): Add alternative key bindings
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 87cca4044b8..7ba7b031e1e 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1282,7 +1282,7 @@ regardless of where you click."
   (or mouse-yank-at-point (mouse-set-point click))
   (let ((primary (x-get-selection 'PRIMARY)))
     (if primary
-        (insert (x-get-selection 'PRIMARY))
+        (insert primary)
       (error "No primary selection"))))
 
 (defun mouse-kill-ring-save (click)
@@ -1577,7 +1577,7 @@ regardless of where you click."
   (or mouse-yank-at-point (mouse-set-point click))
   (let ((secondary (x-get-selection 'SECONDARY)))
     (if secondary
-        (insert (x-get-selection 'SECONDARY))
+        (insert secondary)
       (error "No secondary selection"))))
 
 (defun mouse-kill-secondary ()